home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / NICELIST.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  2.8 KB  |  84 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '*****************  Pretty listing Program  BASIC **************************
  3. 12  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 14  'OPEN               FORMATTED PROGRAM LISTING PROGRAM        Ver 5.1/160      OPEN
  5. 16  'OPEN                                                                         OPEN
  6. 18  'OPEN   This program, or versions of it, has been around for many years. It   OPEN
  7. 20  'OPEN will send a formatted listing to the EPSON/GEMINI printer. It provides  OPEN
  8. 22  'OPEN 55 lines per page with a heading, date, and name at the top of each     OPEN
  9. 24  'OPEN page.  This program, in whole or part, may be used without license or   OPEN
  10. 26  'OPEN attribution.  Listed program must be  saved with "A" option.            OPEN
  11. 28  'OPEN     IF YOU HAVE A CLOCK BOARD INSTALLED, REMOVE REM ' FROM LINE 360.    OPEN
  12. 29  'OPEN                   (c)  G I N A C O  -- 1983        Ver 5.3/160/320      OPEN
  13. 30  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  14. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  15. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  16. 60  REM
  17. 100  FOR I! = 1 TO 10
  18. 110    KEY I!,""
  19. 120  NEXT
  20. 130  CLS
  21. 140  KEY OFF
  22. 150  SCREEN 0,0,0
  23. 160  WIDTH 80
  24. 170  CLEAR
  25. 180  PAGE! = 0
  26. 190  LENGTH! = 0
  27. 200  LINECOUNT! = 0
  28. 210  K! = 0
  29. 220  LOCATE 8,25
  30. 230  PRINT "POSITION PAPER 1 SPACE BELOW PERFORATION"
  31. 240  LOCATE 10,19
  32. 250  PRINT "NOTE: The Program to be listed must already be saved"
  33. 260  LOCATE 11,34
  34. 270  PRINT "with "; CHR$(34); CHR$(65); CHR$(34);" OPTION (ASCII)"
  35. 280  LOCATE 13,35
  36. 290  PRINT "ENTER DATE (MM-DD-YY)"
  37. 300  LOCATE 13,60
  38. 310  LINE INPUT D$
  39. 320  LOCATE 14,35
  40. 330  PRINT "ENTER TIME (HH:MM)"
  41. 340  LOCATE 14,60
  42. 350  LINE INPUT T$
  43. 360  REM D$=DATE$:T$=TIME$:REM ***** REMOVE "REM" IF YOU HAVE CLOCK BOARD ****
  44. 370  LOCATE 16,35
  45. 380  PRINT "FILESPEC OF PROGRAM "
  46. 390  LOCATE 16,55
  47. 400  LINE INPUT ;FILESPEC$
  48. 410  FILESPEC$ = FILESPEC$
  49. 420  OPEN FILESPEC$ FOR INPUT AS 1
  50. 430  PAGE! = PAGE! + 1
  51. 440  WIDTH "LPT1:",132
  52. 450  LPRINT CHR$(15);
  53. 460  LPRINT STRING$(3,10)
  54. 470  LPRINT TAB( 15)"* FORMATTED LISTING OF ";
  55. 480  LPRINT TAB( 45);FILESPEC$;"       ";D$;"     ";T$;"    ";"PAGE ";PAGE!
  56. 490  LPRINT
  57. 500  LINECOUNT! = LINECOUNT! + 5
  58. 510  DEL$ = INPUT$(1,1)
  59. 520  IF EOF(1) THEN K! = 1 : GOTO 690
  60. 530  LN$ = LN$ + DEL$
  61. 540  IF DEL$ < > ":" AND DEL$ < > CHR$(10) THEN 510
  62. 550  IF DEL$ = CHR$(10) THEN LN$ = LEFT$(LN$, LEN(LN$) - 2)
  63. 560  IF VAL( LEFT$(LN$,1)) > 0 THEN 570 ELSE 590
  64. 570  LPRINT TAB( 7);LN$;
  65. 580  GOTO 610
  66. 590  LPRINT TAB( 15);LN$;
  67. 600  GOTO 610
  68. 610  LN$ = ""
  69. 620  LINECOUNT! = LINECOUNT! + 1
  70. 630  IF LINECOUNT! = > 60 THEN 650
  71. 640  GOTO 510
  72. 650  LPRINT CHR$(12)
  73. 660  PAGE! = PAGE! + 1
  74. 670  LINECOUNT! = O!
  75. 680  GOTO 460
  76. 690  IF K! = 1 THEN 710
  77. 700  GOTO 560
  78. 710  CLOSE
  79. 720  LPRINT CHR$(12)
  80. 730  LPRINT CHR$(27); CHR$(64);
  81. 740  END
  82. 65000  REM ********************** SAVE ROUTINE *****
  83. 65100  SAVE"B:NICELIST.BAS"
  84.